From: Daiki Ueno <ueno@unixuser.org>
Date: Mon, 26 Jul 2010 05:22:13 +0000 (+0900)
Subject: Add alternative key bindings to epa-mail.el.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~7141
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ce7d11a64d6c329da6466383e087a3171d29f030;p=emacs.git

Add alternative key bindings to epa-mail.el.

* epa-mail.el (epa-mail-mode-map): Add alternative key bindings
which consist of control chars only.  Suggested by Richard
Stallman.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 53fc09619d8..52a618ed13e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2010-07-26  Daiki Ueno  <ueno@unixuser.org>
+
+	* epa-mail.el (epa-mail-mode-map): Add alternative key bindings
+	which consist of control chars only.  Suggested by Richard
+	Stallman.
+
 2010-07-25  Daiki Ueno  <ueno@unixuser.org>
 
 	* epa-file.el (epa-file-insert-file-contents): Check if LOCAL-FILE
diff --git a/lisp/epa-mail.el b/lisp/epa-mail.el
index b3c31fe4354..69fb6d7d7e8 100644
--- a/lisp/epa-mail.el
+++ b/lisp/epa-mail.el
@@ -32,6 +32,12 @@
     (define-key keymap "\C-c\C-ee" 'epa-mail-encrypt)
     (define-key keymap "\C-c\C-ei" 'epa-mail-import-keys)
     (define-key keymap "\C-c\C-eo" 'epa-insert-keys)
+    (define-key keymap "\C-c\C-e\C-d" 'epa-mail-decrypt)
+    (define-key keymap "\C-c\C-e\C-v" 'epa-mail-verify)
+    (define-key keymap "\C-c\C-e\C-s" 'epa-mail-sign)
+    (define-key keymap "\C-c\C-e\C-e" 'epa-mail-encrypt)
+    (define-key keymap "\C-c\C-e\C-i" 'epa-mail-import-keys)
+    (define-key keymap "\C-c\C-e\C-o" 'epa-insert-keys)
     keymap))
 
 (defvar epa-mail-mode-hook nil)